home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_30328.txt < prev    next >
Text File  |  1990-08-07  |  3KB  |  110 lines
  1. -- card: 30328 from stack: in.0-2
  2. -- bmap block id: 30540
  3. -- flags: 0000
  4. -- background id: 27044
  5. -- name: academic
  6. ----- HyperTalk script -----
  7. -- This handler performs the animation.
  8. on doAnimation
  9.   wait 20
  10.   repeat for 2
  11.     repeat with n = 1 to 4
  12.       set the icon of btn "thingshappen" to ("disturbance" & n)
  13.       wait 10
  14.     end repeat
  15.     set the icon of btn "thingshappen" to 0
  16.     wait 20
  17.   end repeat
  18.   runLetters "Q A B C D E F G H I J K L R M N O P Q", "showFld"
  19.   show cd btn "See It Again"
  20. end doAnimation
  21.  
  22. -- Animates letters moving into a field from the right.
  23. -- Modified from a script by Karl Anderson
  24. on runLetters theWord, cdFldName
  25.   put empty into cd fld cdFldName
  26.   put "          " into spacesBefore
  27.   put spacesBefore before theWord
  28.   put theWord into cd fld cdFldName
  29.   repeat with n = 1 to the number of chars of theWord
  30.     delete char 1 of theWord
  31.     put theWord into cd fld cdFldName
  32.     wait 10
  33.   end repeat
  34. end runLetters
  35.  
  36. on reset
  37.   hide cd btn "See It Again"
  38. end reset
  39.  
  40.  
  41.  
  42.  
  43. -- part 5 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=328 top=93 right=136 bottom=367
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: thingsHappen
  55.  
  56.  
  57. -- part 6 (field)
  58. -- low flags: 01
  59. -- high flags: 0000
  60. -- rect: left=54 top=71 right=167 bottom=369
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 0
  64. -- font id: 214
  65. -- text size: 80
  66. -- style flags: 0
  67. -- line height: 80
  68. -- part name: showFld
  69.  
  70.  
  71. -- part 7 (field)
  72. -- low flags: 01
  73. -- high flags: 0000
  74. -- rect: left=65 top=78 right=171 bottom=229
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 174
  79. -- text size: 14
  80. -- style flags: 256
  81. -- line height: 15
  82. -- part name: 
  83.  
  84.  
  85. -- part 9 (button)
  86. -- low flags: 80
  87. -- high flags: A004
  88. -- rect: left=57 top=172 right=189 bottom=137
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 174
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: See It Again
  97. ----- HyperTalk script -----
  98. -- This handler resets the animation and shows it again.
  99. on mouseUp
  100.   set cursor to none
  101.   reset
  102.   unlock screen
  103.   doAnimation
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part contents for card part 7
  109. ----- text -----
  110. HyperCard provides you with easy curriculum development, and gives your students a compelling environment in which to learn.